home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Lattice C v5.02 d4.adf / examples / debugger / memory.cpr < prev    next >
Text File  |  1988-11-07  |  727b  |  22 lines
  1. /* Display the Memory regions */
  2. NULL = "00000000"x
  3. execbase = import("00000004"x,4)
  4. liboff = 322
  5. nodebase = import(offset(execbase, liboff), 4)
  6.  
  7. do while(import(nodebase,4) ~= NULL)
  8.    attr  = 'attr' c2x(import(offset(nodebase,14),2))
  9.    lower = 'lower' c2x(import(offset(nodebase,20),4))
  10.    upper = 'upper' c2x(import(offset(nodebase,24),4))
  11.    first = import(offset(nodebase,16),4)
  12.    free  = 'free' c2d(import(offset(nodebase,28),4))||'.'
  13.    'd "'||c2x(nodebase) attr lower upper 'first' c2x(first) free||'"'
  14.    do while (first ~= NULL)
  15.       size = import(offset(first,4),4)
  16.       'd "  ' c2x(first) ' size' c2x(size) '('||c2d(size)||'.)"'
  17.       first = import(first,4)
  18.    end
  19.    nodebase = import(nodebase,4)
  20. end
  21. exit(0)
  22.